home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cmdlg2 / dialogs.frm < prev    next >
Text File  |  1995-05-08  |  6KB  |  209 lines
  1. VERSION 2.00
  2. Begin Form Dialogs 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Common Dialogs Made in VB"
  5.    ClientHeight    =   3780
  6.    ClientLeft      =   90
  7.    ClientTop       =   645
  8.    ClientWidth     =   6705
  9.    Height          =   4470
  10.    Icon            =   DIALOGS.FRX:0000
  11.    Left            =   30
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   3780
  15.    ScaleWidth      =   6705
  16.    Top             =   15
  17.    Width           =   6825
  18.    Begin Menu mnuDemo 
  19.       Caption         =   "&Demo"
  20.       Begin Menu mnuFOpen 
  21.          Caption         =   "File &Open"
  22.       End
  23.       Begin Menu mnuFSave 
  24.          Caption         =   "File &Save"
  25.       End
  26.       Begin Menu mnuFonts 
  27.          Caption         =   "&Fonts"
  28.       End
  29.       Begin Menu mnuPrinter 
  30.          Caption         =   "&Printer"
  31.          Begin Menu mnuPSetup 
  32.             Caption         =   "Printer Setup"
  33.          End
  34.          Begin Menu mnuPDoc 
  35.             Caption         =   "Print Doc Setup"
  36.          End
  37.       End
  38.       Begin Menu mnuColors 
  39.          Caption         =   "&Colors"
  40.       End
  41.       Begin Menu mnuSep 
  42.          Caption         =   "-"
  43.       End
  44.       Begin Menu mnuExit 
  45.          Caption         =   "E&xit"
  46.       End
  47.    End
  48. End
  49. Rem Demo for accessing Win 3.1 Common Dialogs
  50. Rem Author: Costas Kitsos, CIS 73667,1755
  51. Rem Revision: 1.00.00, July 4 1992
  52.  
  53. Rem Modified: L.J. Johnson, CIS 70700,1334
  54. Rem Revision: 1.10.00, July 25 1992
  55.  
  56. DefInt A-Z
  57.  
  58. Sub mnuColors_Click ()
  59.     
  60.     ' ----------------------------------------------------
  61.     ' Res% = 0 means everything OK
  62.     ' Res% = 1 means couldn't allocate global memory
  63.     ' Res% = 2 means couldn't lock global memory
  64.     ' Res% = 3 means had error returned from common dialog
  65.     ' CError& tells you WHAT error if Res% = 3
  66.     ' ----------------------------------------------------
  67.     Flags& = CC_RGBINIT Or CC_FULLOPEN
  68.     
  69.     Res% = PColors%(Dialogs, CError&, Flags&)
  70.     ' ----------------------------------------------------
  71.  
  72.     If CError& <> 0 Then
  73.         Msg$ = CmdError$(x&)
  74.         MsgBox Msg$, 32, "DIALOGS"
  75.     End If
  76.  
  77. End Sub
  78.  
  79. Sub mnuExit_Click ()
  80.     End
  81. End Sub
  82.  
  83. Sub mnuFonts_Click ()
  84.     
  85.     ' ----------------------------------------------------
  86.     ' Res% = 0 means everything OK
  87.     ' Res% = 1 means couldn't allocate global memory
  88.     ' Res% = 2 means couldn't lock global memory
  89.     ' Res% = 3 means had error returned from common dialog
  90.     ' FError& tells you WHAT error if Res% = 3
  91.     ' ----------------------------------------------------
  92.     FontType% = SCREEN_FONTTYPE
  93.     Flags& = CF_SCREENFONTS Or CF_EFFECTS
  94.  
  95.     Res% = PFonts%(Dialogs, FError&, Flags&, FontType%)
  96.     ' ----------------------------------------------------
  97.  
  98.     If FError& <> 0 Then
  99.         Msg$ = CmdError$(x&)
  100.         MsgBox Msg$, 32, "DIALOGS"
  101.     End If
  102.  
  103. End Sub
  104.  
  105. Sub mnuFOpen_Click ()
  106.     
  107.     ' ----------------------------------------------------
  108.     ' Res% = 0 means everything OK
  109.     ' Res% = 1 means couldn't allocate global memory
  110.     ' Res% = 2 means couldn't lock global memory
  111.     ' Res% = 3 means had error returned from common dialog
  112.     ' FError& tells you WHAT error if Res% = 3
  113.     ' ----------------------------------------------------
  114.     Filter1$ = "VB Files" + Chr$(0) + "*.frm;*.bas;*.mak" + Chr$(0)
  115.     Filter2$ = "Text Files" + Chr$(0) + "*.txt;*.doc" + Chr$(0)
  116.     Filter$ = Filter1$ + Filter2$ + Chr$(0)
  117.     Index% = 1
  118.     Flags& = OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY Or OFN_PATHMUSTEXIST
  119.     
  120.     IDir$ = CurDir$ + Chr$(0)
  121.     Title$ = "MyApp's File Open" + Chr$(0)
  122.     
  123.     Res% = PFileOpen%(Dialogs, FError&, Filter$, IDir$, Title$, Index%, Flags&)
  124.     ' ----------------------------------------------------
  125.  
  126.     If FError& <> 0 Then
  127.         Msg$ = CmdError$(x&)
  128.         MsgBox Msg$, 32, "DIALOGS"
  129.     End If
  130.  
  131. End Sub
  132.  
  133. Sub mnuFSave_Click ()
  134.     
  135.     ' ----------------------------------------------------
  136.     ' Res% = 0 means everything OK
  137.     ' Res% = 1 means couldn't allocate global memory
  138.     ' Res% = 2 means couldn't lock global memory
  139.     ' Res% = 3 means had error returned from common dialog
  140.     ' FError& tells you WHAT error if Res% = 3
  141.     ' ----------------------------------------------------
  142.     Filter1$ = "VB Files" + Chr$(0) + "*.frm;*.bas;*.mak" + Chr$(0)
  143.     Filter2$ = "Text Files" + Chr$(0) + "*.txt;*.doc" + Chr$(0) + Chr$(0)
  144.     
  145.     Filter$ = Filter1$ + Filter2$ + Chr$(0)
  146.     IDir$ = CurDir$ + Chr$(0)
  147.     FileMask$ = "untitled.frm"
  148.     Title$ = "MyApp's File Save" + Chr$(0)
  149.     Index% = 1
  150.     Flags& = OFN_HIDEREADONLY Or OFN_PATHMUSTEXIST
  151.     
  152.     Res% = PFileSave%(Dialogs, FError&, Filter$, IDir$, FileMask$, Index%, Title$, Flags&)
  153.     ' ----------------------------------------------------
  154.  
  155.     If FError& <> 0 Then
  156.         Msg$ = CmdError$(x&)
  157.         MsgBox Msg$, 32, "DIALOGS"
  158.     End If
  159.  
  160. End Sub
  161.  
  162. Sub mnuPDoc_Click ()
  163.     
  164.     ' ----------------------------------------------------
  165.     ' Res% = 0 means everything OK
  166.     ' Res% = 1 means some error from printer common dialog
  167.     ' Res% = 2 means no DeviceMode
  168.     ' Res% = 3 means couldn't get address of GlobalLock
  169.     ' PError& tells you WHAT error if Res% = 1
  170.     ' ----------------------------------------------------
  171.     Flags& = PD_RETURNIC Or PD_HIDEPRINTTOFILE Or PD_NOSELECTION
  172.     FPage% = 1
  173.     TPage% = 12
  174.     Min% = 1
  175.     Max% = 12
  176.     Copies% = 1
  177.  
  178.     Res% = PPrinter%(Dialogs, PError&, Flags&, FPage%, TPage%, Min%, Max%, Copies%)
  179.     ' ----------------------------------------------------
  180.  
  181.     If PError& <> 0 Then
  182.         Msg$ = CmdError$(x&)
  183.         MsgBox Msg$, 32, "DIALOGS"
  184.     End If
  185.  
  186. End Sub
  187.  
  188. Sub mnuPSetup_Click ()
  189.     
  190.     ' ----------------------------------------------------
  191.     ' Res% = 0 means everything OK
  192.     ' Res% = 1 means some error from printer common dialog
  193.     ' Res% = 2 means no DeviceMode
  194.     ' Res% = 3 means couldn't get address of GlobalLock
  195.     ' PError& tells you WHAT error if Res% = 1
  196.     ' ----------------------------------------------------
  197.     Flags& = PD_PRINTSETUP
  198.  
  199.     Result% = PSetup%(Dialogs, PError&, Flags&)
  200.     ' ----------------------------------------------------
  201.  
  202.     If PError& <> 0 Then
  203.         Msg$ = CmdError$(x&)
  204.         MsgBox Msg$, 32, "DIALOGS"
  205.     End If
  206.  
  207. End Sub
  208.  
  209.